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RCJININDX.B32;1 (1) 


aw 


: 1 O0¢ MODULE ININDX ( ss GUAGE, eu >, 

aS 008 IDENT St *vBS-000"" ” 

; 4 bee )= 

3 5 8? BEGIN 

Be S07 1! 

3 8 43 1 gy ee eee eee ican cree Se eee 
° :* * 
ce 010 1 !* COPYRIGHT (c) 1978, 1980, 1982, 1984 8 * 
3 11 011 1 !* DIGITAL EQUIPMENT CORPORATION, MAYHARD. MASSACHUSETTS. * 
3 \§ org } - ALL RIGHTS RESERVED. * 
° 2 ® 
s % 0014 1 !« Tals SOFTWARE IS FURNISHED ,UNoER A LICENSE AND MAY BE USED AND COPIED * 
Lan: 0015 1 !* ONLY IN ACCORDANCE WITH THE TER ae OF SUCH LICENSE AND WITH THE * 
; 8018 1 fe INCLUSION OF THE ABOVE Sy lh NOTICE. ruts SOFTWARE OR ANY OT * 
es or 0017 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
3 18 0018 1 '!* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
$ sh sd : os TRANSFERRED. * 
Ps Z ® 
; A 0021 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
3 ¢ 00 ¢ 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
HY $i 8 i : : CORPORATION. * 
° ; e 
: 25 pose 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
3 $8 OoSS : i SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
3 ! * 
; 2 0028 1 !« « 
4 $3 4 2 : Vee eee AAAAAAAAAAA AERA AEE REA AEA ERAA AREER 
: 31 0031 1 !+¢ 

3 ¢ Oo8¢ 7} 

ron 0035 1°! FACILITY: INIT Utility Structure Level 1 

ve a 0034 1! 

; 5 0035 1 ! ABSTRACT: 

$ 6 0036 1! 

» 0037 1! This module contains the routines that initialize the contents 

5; SB 0038 1! of a disk's index file: boot and home blocks, bitmap, and the 

; 39 0039 1! initial file headers. 

:; 40 0040 1! 

3 a3 8 ' ENVIRONMENT: 

> 6 $08 1! STARLET operating system, including privileged system services 

: 44 44 1! and internal exec routines. 

: 45 045 1! 

:; 646 ak 1 te 

3s 67 047 1! 

:; 48 Bee 1! 

: 4 3 : AUTHOR: Andrew C. Goldstein, CREATION DATE: 14-Nov-1977 10:16 

> 51 51 i MODIFIED BY: 

; 3g 038 1 i V03-005 MCNO140 a del C. 30-Nov-1983 

; | (54 54 1! Define LABEL STRING. pea USER NAME as BBLOCK descr taters. 

= 55 1! Default RECORD_PROT value since qualifier was never 

; 2$ $26 ! implemented. 
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3 28 28 1! v03-004 arG036¢ Andrew C. Goldstein, 27-Sep-1983 15:07 | 
; 26 26 } x index file highwater mark problems 
: 61 61 1: v03-003 ACG0332 Andrew C. Goldstein, S-May-1983 14:37 

: ? 6 : Add correct highwater mark initialization | 
: 64 ve 1 i V03-002 STJ3094 Ste yen, Jeffre ore ore -1983 
: 65 soee ! Add support for /CNOJERASE and / SOHIGHGATE 

: 67 8] 1 i v03-001 ACG0325 Andrew C. Goldstein, 4-Apr-1983 16:31 
: o8 643 : } Add high water mark field and file name extension 

: 0 836 1 / V02-004 ACG0240 Andrew C. Goldstein, 11-Dec-1981 22:17 

$ f} Bf) : Make default file protection more restrictive 

2 S078 1 / v02-003 ACGO185 Andrew C. Goldstein th Feb-1981 21:03 

3 a Baee } File structure updates; e.g., back link 

: 76 0076 1! v0Oi02 acGoo7s Andrew C. Goldstein, 19-Oct-1979 17:51 

3 a ith ’ ; Add pack serial number to home block 

: 79 0079 1: vO101 ACG0017 Andrew C. Goldstein, 18-Jan-1979 11:49 

5 HY sie : } Fix generation of format 3 map pointers 

: 8 ORs 1 v0100 ACG00001 Andrew C. Goldstein, 10-Oct-1978 21:27 

© 0083 1! Previous revision history eaves to PINIT. SRCJINIT.REV 

; 84 0084 1 !ae 

Oi ee 

>: 87 0087 1 LIBRARY VSYSSLIBRARY:L1B, L32"; 

3 88 3 1 REQUIRE ‘SRCS$: INIDEF 

3 89 0379 1 REQUIRE ‘LIBDS: tVMSLiB, SB )DINITHSG. B32'; 

: Bt S812 

: 9 $218 1 FORWARD Rou TINE 

; #9 0514 1 INIT_INDEX : NOVALUE, ! main index file initialization 

; 94 0515 1 URITE HOMEBLOCK : NOVALUE, ' checksum and write home block 

; 0516 1 MAKE _POINTER : NOVALUE; ! construct retrieval pointer 
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e when the volume is booted on a PDP-11 


Boot program. The following PDP=-11 program will type 
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Boot message. Contains the volume Label. 
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4.0-742 
NIT.SRCJININOX.B832; 479 "2 


; 1546 7 «4 

s 135 75 1 BIND 

; 1 § 8 } FORMAT _NAME = UPLIT BYTE ("DECFILE11B '); 

eB 78 1 «14 

oo” 8 8 . | 

; 160 » 34 Ente te} file peeeer, The core og > file is used since it is the first 

; 161 281 1 ! one written. Note that this must be updated whenever fields are added 

; 166 5 ¢ 1! to the file header. 

oe 585 1! 

: 164 584 1 !- 

: 165 : > i 

: 166 § 1 SASSUME (F PUSS ALENGTH. EQL, 80) 

s 167 28 1 SASSUME (FI2SC_LENGTH, EQL, 120) 

; 168 0588 1 

: «(169 0589 1 BIND 

; 170 0590 1 INITIAL_HEADER = UPLIT ( 

: 171 0591 ‘+1 ' HEADER area 

3 \76 Be06 1 BYTE (FH2$C_LENGTH / 2 ' ident area erro 

: 17 0593 1 BYTE ((FH2$C LENGTH othe $C_LENGTH)/2), | map area offse 

: 174 0594 1 BYTE (S$BYTEO OFFS FSET at ope ete KsUm} /¢? ' access contrat list offset 

, tee 0595 1 BYTE (SBYTEOFFSET (EH $W-CHECKSUM)/2), ! reserved area offset 

; 176 0596 1 WORD (0), ! file segment number 

3; 177 0597 1 BYTE (1, g)- ' structure version and level 

; 178 0598 1 WORD (5, 5, 0), ' file ID 

: 179 0599 «+1 WORD (0, 0, 0), ' extension file ID 

: 180 0600 1 BYTE (FATSC_FIXED), i fixed Length record type 

> 181 0601 1 BYTE (0) ' no record attributes 

3 ise 0602 1 WORD (518), ' record size 

; #2 0603 1 LONG (0, 1°16), ' HIBLK and EFBLK 

> 184 0604 1 WORD (05, i EOF byte offset 

: «185 0605 1 BYTE 9 0), ' bucket size & vFC Length 

; «4186 0606 1 WORD (542), ! maximum record length 

: 187 0607 1 WORD (0), ! default extend size 

; 188 0608 1 WORD (0, 0, 0, 0, 0, 0), ' unused record attributes 

> 189 0609 1 LONG (05, i file characteristics 

: 190 0610 1 WORD (0), ' record protection 

: 191 0611 1 BYTE (0, 0), ! mapwords in use & access mode 

: 198 0612 1 LONG (05, i file owner UIC 

; «19 0613 1 WORD (0), ! file protection 

: 194 0614 1 WORD (4, 4, 0), ! qirectery back Link 

: «6195 0615 1 WORD (0,0), ! journal flags and spare 

; 196 0616 1 LONG (15, i high water mark 

> pele 1 

; 6198 618 1 ! IDENT are 

3; «4«199 0619 1 BYTE (*CORIMG.SYS;1 a? ' file name. type and version 

: 200 0620 1 WORD (1), ' revision numbe 

: 201 621 1 LONG (0, 0, 0, 0. 0, 0, 0. 0) ' dates | 

: 4 " § : REP F12$S_FILENAMEXT of BYTE ¢* *) ! file name extension 

3 04 e.% ); 
| 


Ss 
3 


This routine initializes the contents of the disk's inde 


x file 
boot block, the home blocks, index file bitmap, 


buffer for current date/time 
current LBN 

count field of map pointer 

start LBN of current map pointer 


soanand options 
r 


volume protection 

default file protection 

maximum number of files on volume 
volume cluster factor 

volume owner 

default file extend 

default window size 


3 86 $ 5 } GLOBAL ROUTINE INIT_INDEX : NOVALUE = 
: 8 5 1 !44 

3 6 8 1! 

: 19 4 ! FUNCTIONAL DESCRIPTION: 

; \ 651 1! 

3; 21 6 ¢ 1! It writes a quany 

; 14 1 $ and the initial headers. 
3 219 634 1! 

3 18 635 1! 

; 21 $ 1 ! CALLING SEQUENCE: 

$ Hs 6 8 : INIT_INDEX () 

3 0 9 1°! INPUT PARAMETERS: 

: 1 40 1! NONE 

3 ¢ 0641 1! 

z pote 1 ! IMPLICIT INPUTS: 

; 24 0645 1! parser data base 

s 223 Rote : allocation table in INIDSK 
3 $58 0646 1 ! OUTPUT PARAMETERS: 

3 8 0647 1! NONE 

3 9 0648 1! 

3 0 0649 1 ! IMPLICIT OUTPUTS: 

; 2351 Reed : NONE 

; 3 Bo36 1 ! ROUTINE VALUE: 

; 0655 1! NONE 

; 5 0654 1! 

; 0655 1 ! SIDE EFFECTS: 

3s 2st 9636 1! index file blocks written 
; 238 0657 1! 

3; ey 0658 1 !-~< 

; 240 0659 1 

: 241 0660 BEGIN 

3 $g 0661 

3 4 Boog BUILTIN 

3 44 066 ROT; 

; 245 0664 

3 m4 0665 LOCAL 

; 26 2608 DATE_TIME : VECTOR (2), 
: 248 066 LBN, 

3; 269 8 MAP_COUNT, 

; 250 34 MAP_LBN; 

: 51 0 

; @ 997) EXTERNAL 

3 5 INIT_OPTIONS : BITVECTOR, 
: 54 067 BUFFER : BBLOCK, 
3 @29 0674 VOLUME _SIZE, 

sé Bo2? PROTECTION, 

; 5 6 FILE PROT, 

3 58 7 MAXI e 

; 259 8 CLUSTER 

: 260 7 OWNER_UIC, 

: 261 3 EXTENSION, 

: 262 0681 WINDOW, 


> 7 
ease 1982 93; 95598 | NT coimBhas fens JININDX.B32:1°%" (3 


6 
size of volume rounded to next cluster 


7 
15. -$ep-1984 01:47: VAX-11 Bliss-32 V4.0-742 
14- 30071382 93395298 DISKSVMSMASTER: cIN IT. SRCJININDX.832; 39 ai 
> 263 6 ¢ ACCESSED, ! default directory LRU Limit 
; 264 6 SERIAL_NUMBER, ! pack serial number 
: 265 4 ADBLOCK_ TOTAL ' count of bad blocks on volume 
; 66 685 ALLOC_TABLE_CNT : VECTOR, i allocation count table 
; 26 O86 ALLOC_TABLE_LBN : VECTOR, ' allocation LBN table 
; 268 6 BADBLOCK_CNT : VECTOR, ' bad paech agent table 
: 269 688 BADBLOCK _LBN : VECTOR, ' bad LBN 
: 270 689 BOOTBLOCR_CNT, ! boot block cluster block count 
ae 690 BOOTBLOCK_LBN ' boot block cluster LBN 
; Me 691 H EBLOCKT_cNf, ' home block 1 cluster block count 
3; a 069 OMEBLOCK1_LBN, ! home block 1 cluster LB 
: 276 69 HOMEBLOCK2_ CNT, ' home block 2 cluster om count 
: 275 694 HOMEBLOCKe-LBN, ' home block 2 cluster L 
; 276 695 IDXHDR2_CNT, ' secondary index tite Seeeer count 
; 277 696 IDXHDR2_LBN, : secondary index file header LBN 
; 278 0697 IDXFILE_CNT, ! initial index file Sount 
; er 0698 IDXFILE_LBN, ! initial index file L 
: 280 0699 BITMAP_CNT, ! storage bitmap block chaiil 
3 $B 0700 BITMAP_LBN, : nD blo bitmap LBN 
; 82 0701 MFD_CNT, i MFD block count 
$ 2 144 MFD_LBN, ' MFD 
> 284 070 REAC_HOMEBLOCK, ' LBN ys secondary home block 
; gee 0704 LABEC_STRING : BBLOCK CDSC$C_S_BLN], ! string descriptor of volume Label 
5 $Be 14159 USER_RAME : BBLOCK COSC$C"S"BLNJ; ! string descriptor of user name 
; 288 0707 EXTERNAL LITERAL 
; 289 0708 BOOTBLOCK IDX : UNSIGNED (6), ! allocation table boot block index 
; 290 0709 IDXFILE_IBXx : UNSIGNED (6); ! allocation table index file index 
; 291 0710 
; $36 0711 
; 29 Orie DEF _REC_PROT = UPLIT ( %x'FEDO' ! default record prot 
; 39% O73 2 IDERT_AREA = BUFFER + FH2SC OLENGTH : BBLOCK; 
; $39 0715 1 EXTERNAL carat 
; 297 0716 ECKSUM2, ! compute block checksum 
; 298 9717 ORITe “BLOCK; i write block to disk 
: 299 orig 
: 300 719 
; 301 0720 ! First block to write is the boot block. Set up the message routine for 
F 4 0721 i the -11 and build the message. 
; Ww 07 ¢ : 
; 304 07e 
; 05 0724 CHSCOPY (BOOT_PROG_LEN, BOOT_PROGRAM, 
: 06 725 MESG” Len BOOT “MESSAGE. 
; Ww 7 § 512, BOFFER); 
; 308 7 CHSMOVE ( “LABEL_ eTRING DSC$W_LENGTH) 
; 309 728 L~STRING CDSCSA POINTERS, 
: 19 Fs BUFFERTBTBS! _VOLNAME] ) 
: \¢ r 1 WRITE_BLOCK (.BOOTBLOCK_LBN, BUFFER); 
3 «6516 7 : ! Now construct the home block. It gets written to the remainder of the boot 
3 2 4 : : : block cluster and to the two home block clusters. 
3 i 7 $ 
: 18 7 SGETTIM CTIRADR = DATE TIMECOI); 
; «#319 0738 CHSFILL (0, 512, BUFFER); 


fF 7 
ININDX 16-Sep-1984 01:47: VAX-11 Bliss-32 V4.0-742 Page 7. 
v04-000 18-808-1 382 93:92:08 DISKSVMSMASTER:CINIT.SRCJININDX.B32; 1 9° (3) | 
3 0 739 
; 1 740 2 BUFFERTHM2$L_HOMELBN] _ = .BOOTBLOCK_LBN + 1; 
; § 74) BUF FERLHM SL ALHOREL BN] = .REAL_HOMEBLOCK; 
; 14g BUF FERCHM SLTALTIDXLBN = ,IDXHOR¢_LBN; 
: 324 74 BUF FERLHMOSB_S RUCVER] = i; 
: 5 744 @ BUFFERLHM2SB-STRUCLEV) = 2; 
i $26 745 2 BUFFERCHMOSW-CLUSTER] = , CLUSTER; 
; 746 BUFFERCHM¢SW-HOMEVBN) = 2: 
; 8 74 BUF FERCHMOSW-ALHOMEVBN) = .REAL HOMEBL OCK - ,HOMEBLOCK2_LBN + .CLUSTER * 2 + 1; 
: 329 748 © BUFFERLHMSW_ALTIDXVBNJ = .CLUSTER * 3 + 1; 
: 0 749 2 BUFFERLHMCSW-IBMAPVBN] = .CLUSTER * 4 + 1: 
: 1 750 2 BUFFERCHMOSL_IBMAPLBN] = .IDXFILE_LBN; 
: é 751 © BUFFERLHMCSL_MAXFILES] = .MAXIMUM; 
; 7 é BUFFERCHMoSW_IBMAPSIZE) = (.MAXIMUM + 4095) / 4096; 
; 07 BUFFERCHMOSW_RESFILES) = 9; 
: 335 0754 2 BUFFERCHMOSL-VOLOWNER] = .OWNER_UIC; 
; 0755 2 BUFFERCHMOSW PROTECT] = .PROTECTION;: 
: 337 0756 IF .INIT_OPTIONSCOPT READCHECK 
: 358 075 THEN Gur FERLMACSY READCHECK]) = 1; 
; 339 0758 IF .INIT_OPTIONSCOPT_wRITECHECK) 
; 340 0759 THEN BUFFERCHM2$V_WRITCHECK] = 1; 
: 341 0760 2 BUFFERCHMOS$W_FILEPROT] = .FILE_PROT 
: 34 0761 2 BUFFERCHMO$W-RECPROT] = .DEF_REC_PROT; 
: 34 0766 (BUF FERCHA $0_CREDATE))<0,32> ~ = [DA ~TIMECO; 
: 344 076 (BUF FERCHM2$Q~CREDATEJ+4)<0,32> = .DATE-TIMEL1); 
; 345 0764 BUF FERCHM2$8_QINDOW) = WINDOW; 
: 346 0765 2 BUFFERCHM2SB-LRU_LIM] = .ACCESSED; 
; 347 0766 2 BUFFERCHM2SW_EXTEND) = .EXTENSION; 
: 348 0767 2 BUFFERCHM2SL SERIALNUM] = ,SERIAL_NUMBER; 
: 349 0768 2 IF .INIT_OPTIONSLOPT ERASE) 
; 350 0769 2 THEN BUF FERCHMZSY ERASE) = 1; 
: 331 0770 2 IF .INIT_OPTIONSCOPT NOHIGHWATER) 
; 326 14a THEN BUFFERCHM2$V_NORIGHWATER] = 1; 
: 354 org CHSFILL (32, MM2$S_STRU NAME « BUF FERCHM2$T_STRUCNAME)); 
> 355 0774 2 CHSCOPY (.LABEL_STRING COSC$W_LENGTH], .LABEL_STRING COSCSA_POINTER), 
: 356 0775 HM2$S VOLNARE . BOFFERCHMOST VOLNAME]); 
; 357 0776 CHSCOPY (.USER_NAME CDSC$W_LENGTH) USE NAME COSCSA_POINTER), 
: 358 077 S OWNERNAME, BUFFERCHMOST OWNERNAME J): 
; 59 o778 CHSMOVE (HM2$S_FORMAT, FORMAT_NAME, BUFFERCHM2$T_FORMAT)); 
: 361 0780 2 DECR J FROM .CLUSTER-1 TO 1 DO 
; 6¢ 0781 WRITE_HOMEBLOCK (); 
: 364 $786 BUFFERCHM2$L_HOMELBN) = .HOMEBLOCK1_LBN; 
: 365 0784 DECR J FROM -CLUSTER TO 1 DO 
: 66 07 : WRITE_HOMEBLOCK (); 
; 7 $ BUFFERCHM2$L_HOMELBN] = .HOMEBLOCK2_LBN; 
; 788 2 DECR J FROM -CLUSTER TO 1 DO | 
: , ; WRITE_HOMEBLOCK (); 
3 791 ! Now write out the initial index file bitmap. The first block contains the 
3 a reserved files marked in use; the rest are all zero. 
: 794 
: 795 2 CHSFILL (0, 512, BUFFER): 
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8 BUF FERCFH2$W_F ID un) = 6; 

8 BUFFERCFHOSW FID™ EQ = 6: 

8 BBLOCK CBUFFERCFA -RECATIRI, FATSW_RSIZE] = 64; 

8s BBL OCK BUFFERCFHOSW-RECATTRI, FATSW- MAXREC) = 64: 

8 CH LIT BYTE (*VOLSET'), H ENT_AREALF 12$1_F ILENAME)); 
83 CHECKSUM? (BUFFER. YTEOFFSET (FH2$W PCHECKSUM) } 

4 WRITE BLOCK (.LBN’+ 6, BUFFER); 


+x 


Turn the header into the backup journal file header and write it. 
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BUF FERCFH2$W_FID 0} : = 8: 

BUFFER FH $W7FID™SEQ 

CHSMOVE (6, OPLIT BYTE ('BACKUP"), IDENT AREACE 1281 _FILENAME)); 
CHE CKSUM2 iourren. TTEOPFSEY" rh H2$W_CHECKS 

WRITE BLOCK (.LBN + 8, BUFFER) 


Turn the header into the sailtiien bad block log file header and write it. 


ARR RE RE 


Wn 


ININDX 18-50 Sep-1984 VAX-11 Bliss-32 V4.0-742 8 
nara ts ~300n 138% 9}: $f: 08 DISKSVMSMASTER: CINIT.SRCJININDX.B32; fa9 * (3) 
: 377 ? BUFFERCO,32> = RBA111111111"; | 
; or g URITE_BLOCK {-CBN. BUFFER); 

: 1 Burrencd 32> = 0; 

; ; 1 2 DEC dein” (.MAXIMUM+4095)/4096-1 TO 1 DO 

: 8 LBN = .LBN + 1; 

; 5 04 URITE BLOCK (.LBN, BUFFER); 

: 5 st END; 

3 3 60 : Construct and write the initial core image file header. 

: 390 80 ‘ 

; 391 ti CHSCOPY (FH2SC_LENGTH+FI2$C_LENGTH, INITIAL_HEADER, 

; 39 811 512, BUFFER); 

: 39 big BUFFERCFHO$L_FILEOWNER) = ; OWNER mots 

: 394 81 BUFFERCFHeSW_FILEPROT] = .FILE 

: 395 814 2 BUFFERCFHeSW-RECPROT) = .DEF_RE 

; 96 815 CIDENT_AREACF1e$Q_CREDATE]) = .D ORTE OTs ere . 

: 39 0816 (IDENT-AREALF 12$Q-CREDATEJ+4) = .DATE FIC 1); 

; 398 081 CIDENT-AREALF 1 2$Q-REVDATEJ) = .DATE_TIMELOJ; 

; 399 818 2 (IDENT -AREALF12$0~ =REVDAT £344) = .DATE_TIMELI); 

: 400 3h CHECKSOM2 (BUFFER TEOFFS ‘I. (FH ie “CHECKSUM)); 

: 401 oe WRITE BLOCK (.LBN + rT EOEFERD 

: 40 08 ; ! Turn the header into the continuation file header and write it. 

; 404 08 ! 

; 405 0824 

; 406 0825 2 BUFFER[FH2$W_FID_NUM) = if 

: 407 08 6 BUF FERCFH2$W-FID~SEQ 

: 408 08 CHSMOVE (6, OPLIT BYTE ( Four IDENT AREAL 1281 _FILENAME); 

; 409 0828 2 CHECKSUM2 (BUFFER, SBYTEOFFSET (FH2$W_CHECKSUM) 

; 9 08 ; WRITE_BLOCK (.LBN + 7, BUFFER); 

3 § 4 1 H Turn the header into the volume set List file header and write it. 
: 414 0838 : 
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BUF FERC FH2$W_FID wn = 3: 

BUFFER FH Sue FID™ Fd = 9: 

BBLOCK RCFA2Sw -RECATIRI, FATSW_RSIZE] = 16; 

BBLOCK BurFeRt FHOSW-RECATTR]. FATS$W MAXREC) = 18; 

VE ( IT BYTE ('BADLOG'), JOENT AREACF 12$T_F ILENAME); 

CHE CK SUM2 (BUFFER YTEOFFSET (FH2$W_CHECKSUM)); 

WRITE_BLOCK (. 1 , BUFFER); 

index file header and write it. 


Turn the header into the 


BUF FERCE $F 1D_NUM = 1; 
eure Sea) = 1; 
Bur FERtE SL-HIGAWATER] = .CLUSTER®4 + ;JOMFILE gNT +1; 
UF FERCFH sue _RECATTRI, FATSW_RSIZEJ = 5T2:; 
BBLOCK UFFERCFHOSW-RECATTRJ, FATSW-MAXREC) = 512; 
BBLOCK BUFFER FHOSW_RECATTRI, FATSLCHIBLK) = ROT (.CLUSTER®4 + .IDXFILE_CNT, 16); 
BBLOCK CBUFFERCFHOSWRECATTRI, FATSL-EFBLK) = ROT (.CLUSTER®4 + (.MAXIMUM+4095)/4096 + 9 + 1, 16); 
HSMOVE (6, UPLIT BYTE ("INDEXF'), IBENT_AREACFI2$T_F ILENAME)); 
map _¢ T = .BOOTBLOCK CNT; 


LBN = .BOOTBLOCK_LEN; 
NCR J FROM BOOTBLOCR” IDX + 1 TO IDXFILE_1Dx DO 


i tal COUNT + .MAP_LBN EQL .ALLOC_TABLE_LBNC.J] 


ese’ - COUNT = .MAP_COUNT + .ALLOC_TABLE_CNTC.J] 


BEGIN 

MAKE POINTER ( MAP =COUNT, nap yy0" 
MAP_COUNT = .ALLOC TABLE _C 

ae LBN = ALLOC. TABLE ‘tent. 43) 


END; 
MAKE_POINTER (.MAP_COUNT, .MAP_LBN); 
CHE CKSUMZ | (BUFFER, SBYTEOFFSET (FH2$W_CHECKSUM)); 
write BLOCK (.LBN + 1 BUFFER) ; 

RJ aie .CLUSTER=1 TO 0 
Bb Uri TE BLOCK (. IDXHDRE. LBN+.J, BUFFER); 


: Turn the file header into the bad block file header and write it. 


CHSFIL 512=FH2$C oe LENGTH, BUFFER+FH2$C_LENGTH+F I2$C_LENGTH); 
BUFFER rH $8 _MAP_INUSE 
BUF FERLF HoSW_F 1D~NUM 
BUF FERLFH2SW~F1D~SEQ 
COUNT = 


MAP_COUN 
INCR J FROM “to -BADBLOCK TOTAL=1 DO 

MAP_COUNT = sBADBLOCK CNTC.J]; 
BUF FERCFH2SL sei NT #1; 


WATER "mabe 
BBLOCK (BUFFER(FHeSW *RECATIRI, “FATSL HIBLK = ROT ‘. MAP_COUNT, 16); 
BBLOCK (BUFFERLFH2SW_RECATTRJ, FATSL-EFBLK] = ROT (.MAP_ ~COUNT#+1, 16); 


CHSMOVE (6, UPLIT BYTE ("BADBLK'), IDENT_AREACFI2$T_FILENAME)); 


“oso 


1b-s 


14-5 


is 


v04 

; 491 310 INCR J FROM 0 TO .BADBLOCK_TOTAL-1 DO 

: 49 a1 IF .BUFFERCFH2$8_MAP ~}NUSE] GTR (512 = FH2SC_LENGTH = FI2SC_LENGTH - 2) / 2-4 
: 49 91 THEN ERR_EXIT CIRITS“MAXBAD); 

; 495 a8 BAKE E_POIRTER (. BADBLOCK WCNTC.JJ, .BADBLOCK_LBNC.JJ); 

: 49 916 CHECKSUM2 (BUFFER, YTEOFF SET. (FH2$W_CHECKSUM)); 

; 438 9 WRITE_BLOCK (.LBN + 3, BUFFER) 

; e 319 : Turn the file header into the storage map file header and write it. 

: 921 2 

; 88 : g CHSFILL (0, 512-FH2$C GENGTH-F128C_LENGTH, BUF FER+FH2$C_LENGTH+F 12$C_LENGTH) ; 
3 504 9 BUF FERCFH2$8_MAP_INUSEJ = 0; 

; 505 0924 2 BUFFERC[FHOSW-FID-NUM) = 3: 

3 5] 925 BUFFERLFHeSW_FID SEQ) = 2; 

; 50 $ BUFFERCFHOSV-CONTIG) = 1; 

; 508 09 BUFFERCFHOSL-H GHWATER] = ( gYOLune SIZE/.C USTER+4095) /4096 + 2; 

; 509 43 3 BBLOCK CBUFFERCFH2S RECATT ATSL_HIBLK N ); 

; 310 9 4 BBLOCK CBUFFERCFH Hrs “RECATIR], + FATSES ~EFBLK) = ROT (t, VOLUME. SIZE/.CLUSTER+4095)/4096 + 2, 
; HF $9 1 CHSMOVE (6, UPLIT BYTE ("BITMAP"), IDENT_AREALF12$T_FILENAME)); 

: 2 09 : MAKE PO] P_CNT, .BITMAP_LBN);~ 

: 514 09 CHECRSUM2 (BUFFER, SBYTEOFFSET (FH2$W_CHECKSUM)); 

; aE 99 4 WRITE_BLOCK (.LBN + 2, BUFFER); 

: " 34 § Turn the file header into the MFD header and write it. 

: 519 0938 2 

: ; 0 09 9 2 CHSFILL (0, 512-FH2SC GENGTH-F128¢_ LENGTH, BUFFER+FH2S$C_LENGTH+F I2$C_LENGTH); 
: 521 940 2 BUFFERCFH2$B8_MAP_INUSE) = 0; 

; g 0941 BUFFERCFH2SW-FID-NUM) = 4; 

: O94¢ BUFFERCFHoSW_FID-SEQ) = 4; 

: 4 094 BUFFERCFH2SV_DIRECTORY) = 1; 

; 525 944 2 BUFFERCFHOSW_FILEPROT] = .BUFFERCFH2$W_FILEPROT] AND NOT %X'4444'; 

: 5 $ 0945 2 BUFFERLFH2S$L HIGHWATER) = 

2. O346 LOCK (BUFFERCFH2$W_RECATTRI, FATS. EFBLK] = ROT (2, 16); 

; 528 94 BBLOCK CBUFFERCFH SUCRECATIR] FATSL “HIBLK = ROT (AFD CNT, 16); 

: 9 348 BBLOCK CBUFFERLFHOSW-RECATTRJ. FATSB-RTYPE) = FATSC_VARTABLE; 

3 0 949 BBLOCK CBUFFERLFH2SW-RECATTRI, FATSB™ RATTRIB) = FATSM _NOSPAN; 

; ¢ 951 CHSMOVE (10, UPLIT BYTE (*000000.DIR"), IDENT_AREACF12$T_F ILENAME)) ; 

: 9¢ INTER (, zMED_CNT .MFD_LBN); 

: 95 CHEERSUMS (BUFFER, Sayfeorr ser (FSW. CHECKSUM) ); 

3; 535 0994 WRITE_BLOCK (.LBN + 4, BUFF 

; 33 0956 1 END; ! end of routine INIT_INDEX 
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DR 
TEXTRN IDXFILE~CNT, IDXFILE~LBN 
-EXTRN BITMAP tnt BITMAP_LBN 
-EXTRN MFD_CNT, MFD_LBN 
-EXTRN REAC_HOMEBLOCK, LABEL_STRING 
SEXTRN USER NAME BoofBLOocK K ox 
EXTRN WOXFILE ioxeve SUA 
-EXTRN WRITE_BCOCK, CVESGETTIM 


-PSECT SCODES,NOWRT,2 
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OFFC 00000 ENTRY INIT INDEX, Save R2,R3,R4,R5,R6,R7,R8,R9,- ; 0625 
5B 0000G CF 9E 90002 MOVAB uni fe BLOCK Rt : 
SA 0000' CF 9E 0000 MOVAB REC PROT. ; 
59 00006 CF 9E 0000C MOV 4 OFFER : 
SE 08 C2 00011 SUBL ; 
69 FEDC CA 26 : 00014 MOVC3 #38, BOOT_PROGRAM, BUFFER : 
O1DAsoaBF 00 FFO2 CA 28 C OO01A MOVCS 40. BOOT"MESSAGE. #0, #474, (R3) : 
26 «AD 00006 oF 00006 ct 28 00024 MOVC3 LABEL_STRING, @LABEL_STRING+4, BUFFER+38 ~~; 
9 DD 0002D PUSHL : 0731 
00006 CF DD 0002F PUSHL ! OTBLOCK_LBN ; 
68 G2 FB 00033 CALLS , WRITE-BLOCK ; 
E DD 000 PUSHL + 0737 
000000006 00 01 FB 00 CALLS #1, SYSS$GETTIM : 
0200 8F 00 6E 09 2¢ 00 Hi mMovCS #0. (SP), #0, #512, BUFFER : 0738 
69 00006 CF 63 C1 he ADDL3 #1, BOOTBLOCK LN. BUFFER + 0740 
04 Ad 00006 CF D 4 MOVL REAL_H EBLOCK. BUFFER+G > 0741 
08 a9 00006 cf D MOVL #313, 60F BUFFE : 074 
0c a9 0 1 F B MOV BOFF FPR > 074 
56 0G CF D F MOVL CLUSTE > 074 
oF a9 $ B 64 MOVW 3—séRG, BUFFERs14 F 
10 ag 80 6 68 MOV #2. +16 ; 0746 
50 00006 CF 00006 CF ¢ 6¢ SUBL3 eSPeR LBN, REAL_HOMEBLOCK, RO > 074 
1 A046 4 MOVAW v0) F 
12 a9 B 79 MOV Fehs “18 : 
1% a 32 + At 0008) ADDWS ao BY BUFFER*20 hte 
50 6 2 78 BS ASHL #2. R : By : 0749 
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01 Al A ADDW3 #1, RO, BUFFER+22 ; ; 
CF DO F MOVL IDXFILE_LBN, BUFFER+24 + 0750 ; 
F D 5 MOVL MAX BUN BUFFER+2 + 0751 : 
FC 8 ADDL #49 5, MAXIMUM, R + 0752 ; 
zB. A DIVL3 #4096, RO, R : ; 
1 6 AD 0 Ri, BUFFER* $ : ; 
9 B B1 MOVW #9. BUFFER+34 : 0753 ; 
CF OD BS MOVL OWNER_UIC, BUFFER+44 + 0754 ; 
CF e 8B MOVW PROTECTION, BUFFER+52 + 0755 ; 
F C1 TSTB INIT_OPTIONS + 0756 ; 
6 4 C3 BGEQ $ : ; 
1 8 ¢ BISB2 #1, BUFFER+4 + 0757 ; 
cf ; cB 1$: BLBC. INIT_OPTIONS+1, 2$ : 0758 i 
2 00D BISB2 #2, BUFFER+42 : 0759 : 
C 8B 0004 2$: MOVW FILE PROT, BUFFER+54 ; 0760 : 
6A : OODA MOVW DEF_REC_PROT, BUFFER+56 : 0761 : 
6— 7D 900 MOVQ DATE TIME, BUFFER+60 + 0762 ; 
CF 90 OO0E MOVB WINDOW, BUFFER+ : 0764 : 
CF 90 OO0E MOVB ACCESSED, BUFFER+69 + 0765 ; 
CF BO OOOEE MOVW EXTENSION, BUFFER+70 + 0766 ; 
CF DO O00F4 MOVL SERIAL NUMBER, BUFFER+456 : 0767 ; 
02 Fi OOFB BBC #2, INTT_OPTIONS+5, 3$ : 0768 ; 
04 88 00101 BISB2 #4. BUFFER+4 + 0769 ; 
03 £1 00105 3$: BBC #3. INIT_OPTIONS+S, 4$ : 0770 ; 
08 8 00108 BISB2 #8. BUFFER+4 : 0771 : 
09 C O10F 4$: MOVCS #0. (SP), #32, #12, BUFFER+460 : 0773 : 
CF 2¢ 00117 MOVCS LABEL_STRING, @LABEL_STRING+4, #32, #12, - : 0775 ; 
¢9 01 9 BUFFER+47 : : 
CF 2¢ 001 MOVCS USER NAME @USER_NAME+4, #32, #12, - + 0777 ; 
9 012¢ BUFFERS4 4 ; : 
O1FO) 3=c9 FF2A CA O¢ 28 0012F MOVC3) #12, FORMAT_NAME, BUFFER+496 : 0778 ; 
52 6 DO 00137 MOVL R6, J : 0780 : 
05 11 001 A BRB ; : 
0000v CF 09 FB 013C 5$ CALLS #0, WRITE_HOMEBLOCK : 0781 ; 
F8 F5 00141 6$ SOBGTR r 3 
69 00006 CF DO 00144 MOVL  HOMEBLOCK1_LBN, BUFFER : 0783 
52 00006 CF 1 g149 ADDLS #1, CLUSTER, J : 0784 
0000V CF 8 Fe ot 1 7$: CALLS #0, WRITE_HOMEBLOCK ; 0785 
FB 52 F5 001 : 8$: SOBGTR J : 
69 00006 CF Dd 001 MOVL HOMEBLOCK2_LBN, BUFFER : 0787 
52 00006 CF 1 C1 ate ADDL #i, CLUSTER, J : 0788 
0000v CF 6 FB 61 9$: CALLS #0, WRITE_HOMEBLOCK + 0789 
F8 F5 00168 10$:  SOBGIR J : 
0200 8F 00 6E 09 2c 166 movcS #6, (SP), #0, #512, BUFFER + 0795 
69 O1FF t 3c 00176 MOVZWL #511, BUFFER : 0796 
7 9006 F DO 178 MOVL IDXFILE_LBN, LBN : 0797 
0280 8F 6B 001 PUSHR #°M< > : 0798 
68 : FB 001 CALLS #2, WRITE_BLOCK ; 
D4 00187 CLAL U + 0800 
52 00006 cf 000 OFFF 8F C1 001 3 ADDL3 #4095, MAXIMUM, R2 : 0801 
2 1000 8F C6 1 DIVL2 #4096, R2 : 
9 19A BRB 12 3 
7 06 0019C 11$: INCL LBN + 0803 
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ea een Toes Paar ite NNT WMASTERCCINIS GREJININDX.B32510%" (43 
F BB 0019 PUSHR #*M<R7,R9> + 0804 ; 
FERRIS ras, SAbbta 42+, ¥BlTE_eLoce : 9801 
BF et OIA MOVCS #200, INITIAL_HEADER, #0, #512, BUFFER ; 0810 ; 
CF DO 00184 MOVL §§ OWNER_UIC, BUFFER+60 : 0812 : 
CF 89 1BA MOVW FILE PROT. BUFFER+64 : 081 ; 
6A 1¢0 MOVW DEF_REC_ PROT, BUFFER+S : 0814 ; 
E 1 1€4 MOVQ DATE_TIME, IDENT_AREA+22 + 0815 ; 
E 7D 001¢8 OVO  DATE-TIME, IDENT-AREA+30 + 0817 ; 
F 3¢ QO1CC MOVZWL #5107 =(SP ; 0819 : 
9 DD 0010 USHL R9 : ; 
é FB 001D CALLS ae. CHECKSUM2 : ; 
pp 01D PUSHL R + 0820 ; 
68 05 83 Fp obi Se tee stot re eiock : : 
I Sr Leah Of UME fe] | 
7E —ONFE BE SCOOTER ROVZuL #810, -(SP) ; 0828 
00006 CF 3 PB tte CALLS ry} CHECKSUM2 ; : 
35 bD OOIFA BUSHE RO" ; 0829 : 
6B i 83 4 Site CALS. ne TE_BLOCK : : 
08 A9 00060006 8F 00 8 02 MOVL 485355 BUFFER+8 + 0834 : 
i a a Be): 
50 ad rn nH 06 ‘8 $0 14 moves *P.AAG, IDENT_AREA : 0838 ; 
7E = OIFE = BFC OOZTA MoVZwL #510, =(SP) ; 0839 : 
00006 CF 83 PR Sbs34 CALLS #3, CHECKSUM2 ; ; 
85 bb 09 36 PUSHL Rd" ; 0840 : 
m8 02 FB 00998 CALLS, #2, WRITE BLOCK 
08 3 00080008 ge 00 09 E MOVL £55455. BUFFER+8 > 0845 ; 
weet OM oowe «BF Se o058e Mov ecL Pet ACB) et AREA Opes 
00006 CF 5 OD osc3 CALS @ eielanail ; : 
6 pp 0248 PUSHL ‘ + 0849 ; 
” O3 Pe § rt atic Set TE_BLOC ; : 
08 “ 00090009 ge BB 6 30 VL aeontt BUFFER+8 > 0854 ; 
A9 10 8B MOVW #16, BUFFER+ : 085 ; 
8 Ad 18 8 3 MOV Ate BUT RERSS > 085 ; 
50 Ad 16 AA 6 : 86 MOVC3 us P.AAIL, IDENT_AREA : 0858 : 
7E O1FE er 3 66 mOVZiL #310, (SP) ; 0859 : 
F FB CALLS #2, CHECKSUM2 ; : 
ones 96 BD "3 PUSHL + 0860 ; 
09 Os Pe OOST? Ce pt et re pr ock : : 
oo Homo, HB est Fait lane ene ae? 
4C 9 Deordg Y MOVAL aiDxt Lg CNTCROJ, BUFFER+76 
16 a9 0200 BF B f MOV re BUF FER+22 > 0868 
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24 Ad 2 fF BO 7 MOVW #512, BUFFER+3 3 0869 : 
3] boo0soF 0 bE 3 MOVAL aioxFite ENTCRO) R1 : 4 ; 
1 1 ; A ROTL #16, .R FFER+24 : ; 
00006 ¢F SO000F FF FC ADDL3 #4095, MAXIMUM, R17 : 0871 ; 
10 1090 F C6 000B DIVL 4096, R1 : : 
0 A a14g E 0028 MOVAL 10(R1SCROJ, RO : : 
0 1 8 ROTL 16, RO, BUFFER+2 ; . 
1c AA 06 C MOVC3 #6, P.AAJ, I EA ; 0872 : 
: 90006 CF D C MOVL  BOOTBLOCK-CNT, MAP_COUN ; 087 : 
0006 CF DO O0eC MOVL_ BOOTBLOCK"LBN, MAP~LBN + 0874 : 
000000006 &F 1 G3 D3 suBL3 #1, #BOOTBLOCK_IDX#1, J + 0875 : 
56 : C1 DD 13$:  ADDL3 MAP_LEN, MAP_COUNT, R : 0877 ; 
0000GCF42 30 bi E} CPL RO, ALLOC_TABLE_LBNCJ : : 
56 OO000GCF4 ig 02E9 ADDL2 ALLOC_TABLE_CNTCJJ, MAP_COUNT + 0879 : 
15 11 OOEF BRB 1 : ; 
; DD OO2F1 14$:  PUSHL MAP_LBN + 0882 : 
6 DD 00 tS PUSHL MAP_COUNT : F 
0000v CF 02 FB OOF CALLS #2, MAKE POINTER : 3 
28 QOOOGCF42 DO OO2FA MOVL ALLOCATABLE CNTY » MAP_COUNT : 0883 : 
§ OOOOGCF4 D9 0300 MOVL ALLOC~TABLE-LBNLJJ, MAP~LBN + 0884 ; 
52 006 F3 00306 15$:  AOBLEQ S*IDXFILE_IBX, J, 138 > 0875 ; 
53 DD 0030A PUSHL MAP_L : 0887 ; 
56 DD 0030C PUSHL  MAP~COUNT : F 
0000v CF 02 FB 00 OF CALLS We MAKE_POINTER F : 
7E O1FE 8F 3C 0031 MOV2WL #510, -(SP) > 0889 ; 
59 DD 00318 PUSHL ; : 
00006 CF 08 FB OO31A CALLS #2, CHECKSUM2 ; : 
59 DD 0031F PUSHL : 0890 ; 
01 AZ 9F 00321 PUSHAB 1(LBN) : : 
6B 02 FB 003 4 CALLS #2, WRITE_BLOCK ; : 
52 0000G CF DO 00327 MOVL CLUSTER, J 3 0891 3 
OA 11 003 C BRB ; : 
59 DD 0032E 16$:  PUSHL R9 + 0892 F 
0000GDF42 9F 00330 PUSHAB @IDXHDR2_LBNCJ) ; : 
68 96 FB 38 5 CALLS #2, WRITE_BLOCK : : 
F F4 00338 17$:  SOBGEQ J ; : 
6E sae 00 2c 00 i movcS #6, (SP), #0, #312, BUFFER+200 > 0897 : 
A AD 94 0034 CLRB = BUF FER+58 : 0898 ; 
08  A9 00030003 y DO 00348 MOVL #196611, BUFFER+8 : 0899 ; 
6 D4 0035 CLRL AP_ COUN : 090 : 
58 00006 CF 00 MOVL § BADBLOCK_TOTAL, R8 : 090 ; 
0 1 cE MNEGL #1, J : : 
6 1 0 A BRB 19 ; : 
56 0000GCF4 cg § 18$:  ADDL2 BADBLOCK_CNTCJJ, MAP_COUNT > 0904 : 
0 58 F 0 62 19$:  AOBLSS RB, J, 1 ; 3 
50 01 Ab 4 56 MOVAB 1(R6), > 0905 : 
4c AD 30 p 6A MOVL RO, BUFFER+76 : 3 
56 10 9C $ ROTL #16, MAP_COUNT BUFFER*24 > 0906 ; 
50 10 4 ROTL #16, RO, BUFFER? : 0907 : 
22. AA 6 2 7 MOVC3 #6, P.AAK, IDENT_AREA ; 0909 ; 
52 } cE fe NE GL a J : 0910 ; 

97 «BF 3A 91 0 33 20$:  CMPB BUEFER*SB, #151 : 0912 | 

0D 1B 00388 i$ ; 


BLEQU ; | 


| 
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; Routine Size: 1158 bytes, Routine Base: S$CODE$ + 0000 


-$ep-1984 247: VAX-11 Bliss-32 V4.0-742 
~307} 382 933 90:08 DISKSVMSMASTER:CINIT. SRC 
0075808C 8F 0D PUSHL #7700668 : 0913) ; 
000000006 oi FB 50 CALLS #1, LIBSSTOP : | 3 
90006CE DD 00397 218 PUSHL BADBLOCK LBNC J} > 0914) : 
GCF42 DD 0039¢ PUSHL BADBLOCK"CNTLJ : | ; 
0000v CF FB Ai CALLS #2, NAKE POINTER : ; 
d9 2 F A6 22%:  AOBLSS RB. J, 208 + 0910' ; 
E O1FE BF 3C OO3AA Mov2wL #510, =(SP) ; 0916 : 
9 DD OO3AF PUSHL 9 : ; 
00006 CF 08 FB 00381 CALLS ae. CHECKSUM2 : ; 
DD 0038 PU + 0917 ; 
68 5 Ob te 6 BB CALS” aoe URITE BLOCK : 
0138 «BF 00 6E core 06 2c 0 BE moves 58° (SP) #0, #312, BUFFER+200 : 0922 : 
A Ad 94 80 C8 CLRB BUFFERSSE : 0923) ; 
08 ad 00020002 af b0 0 CB MOVL #131074, BUFFER+8 + 0924 : 
34 Ad 8 F : 03D BISB2 #128, BUFFER+52 : 092 : 
50 00006 CF 00006 CF g 03D8 DIVE CLUSTER VOLUME _SIZE, RO : 092 : 
50 OF FF £0 E 003E0 MOV 4095(ROS, RO F : 
50 00001000 8F C6 O03E5 DIVL 4096, RO : : 
50 03 CO OOsEC ADDL » RO ; : 
4C¢ Ag 5 DO OO3EF MOVL R BUF FER+76 5 ° 
18 a9 00006 CF 10 9¢ 00 F3 ROTL #16, BITMAP_CNT, BUFFER+24 + 0928 3 
1c AQ 50 10 3 O3FA ROT #16, RO, BUFFER+28 : 0929 3 
50 Ag 28 AA 06 28 OOSFF mMovCc3 6, P.AAL, IDENT_AREA ; 09351 : 
0000G CF DD 00405 PUSHL BI1TMAP_LBN + 0932 F 
00006 CF DD 00409 PUSHL BITMAP™CNT : : 
0000V CF be FB 00400 CALLS # MARE POINTER : $ 
7E O1FE BF 3C 0041¢ MOVZWL #510, -(SP) : 0933 ; 
59 DD 0041 PUSHL R : ; 
00006 CF 08 FB 00419 CALLS #2, CHECKSUM2 : ; 
59 DD 0041 PUSHL 9 > 0934 F 
02 A? 9F 004 PUSHAB 2(LBN : ; 
68 02 FB 004 CALL 2, WRITE_BLOCK : ; 
0138 «8F 00 6E baa 00 2c 04 é MOVCS #0. (SP),"#0, #312, BUFFER+200 : 0939 ; 
A AD 94 004 0 CLRB —s- BUF FER+58 + 0940 ; 
08 A9 00040004 8F DO 004 MOVL #262148 BUF EER+S + 0941 ; 
35 Ad 0 88 00438 B1 $82 #32, BUFFER+S > 0943 ; 
400 Ad 4444 BF AA 0043F BICWo #17476, BUFFER+64 > 0944 : 
4C Ad 2 00 O45 MOVL 2 BUF R+76 > 0945 : 
1€¢ a9 00020000 8F D0 0044 MOVL #131072, BUFFER+28 > 0946 : 
18 Ag 0000G CF 10 9C 00451 ROTL #1 MFO CNT, BUFFER+24 3; 0947 3 
16 Ad 0802 ef 80 458 MOVW we $0, BOFFER+20 + 0948 3 
50 Ag 2— AA A 45€ MOVC3 , P.AAM, IDENT_AREA : 0951 : 
0 COG CF DD 00464 PUSHL MFD. : 0952 : 
o000v 006 65 Pe oocee CACCS  #OC "MAKE. POINTER } 
7 OlFE 8F 3C 138 MOV Z2WL Beton -(SP) : 0953 ; 
9 DD 476 PUSHL : ; 
00006 CF é FB 0047, CALLS a. CHECKSUM2 : : 
pp 47D PUSHL R > 0954 ; 
04 A? OF O047F PUSHAB 4(LBN) : : 
68 02 FB 482 CALLS #2, WRITE_BLOCK : ; 
04 004 ET ; 0956 | 3 
| : 


1980-198 P3459 BEScSUmGna$feRsc init. sR aININDx.832;1°%° y 
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v04-000 eae eee eee ee re UWAASTERCCINIG SGRCIININOX.032510%" (A 
3 39 957 1 ROUTINE WRITE_HOMEBLOCK : NOVALUE = 
; 540 $56 1 > 
: 4) 9 1 S44 
3 tg 960 1! 
; ez 820) ! FUNCTIONAL DESCRIPTION: 
; 545 §3e8 1! This routine computes the checksums in the home block currently 
: re 9646 1! in the buffer, writes it, and then increments the block numbers 
s 54 965 1! in the home block for the next write. 
; 548 3308 1! 
; 549 967 1! 
; 350 968 1 ! CALLING SEQUENCE: 
3 51 96 1! WRITE_HOMEBLOCK () 
3 26 970 1! 
3 5 971 1 ! INPUT PARAMETERS: 
: ee gare 1! NONE 
3 2 5 0973 1! 
s 336 0974 1 =! IMPLICIT INPUTS: 
zs Sor 0975 1! BUFFER contains home block 
3; Soe p376 1! 
; 559 097 1 ! OUTPUT PARAMETERS: 
:; 560 0978 1! NONE 
3 20) 0979 1! 
3 $6 0980 1 ! IMPLICIT OUTPUTS: 
; 0981 1! NONE 
> 564 0982 1! 
; 565 098 1 ! ROUTINE VALUE: 
; 566 0984 1! NONE 
: 567 0985 1! 
; 568 0986 1 ! SIDE EFFECTS: 
: 569 0987 1! home block written 
: 570 0988 1! 
3 STi 0989 1 !-- 
3 276 0990 1 
s $7 0991 BEGIN 
3; 574 099 
s 375 099 EXTERNAL 
3 278 B22 BUFFER : BBLOCK; ! buffer containing home block 
; 578 343 EXTERNAL ROUTINE 
3; 579 99 HECKSUM2 ' block checksum routine 
; 380 0998 WRITE_BLOCK; ! write a block to the disk 
; 581 0999 
3 286 1990 : 
; § 1001 ! Compute the two checksums and then write the block. 
i Re 1008 3° 
: 586 1004 CHECKSUM2 (BUFFER, SBYTEOFFSET (HM2$W_CHECKSUM1)); 
3 aH 1005 CHECKSUM2 (BUFFER YTEOFFSET (HM2$W CHECKSUM2)); 
: 88 WRITE_BLOCK (.BUFFERCHM2SL_HOMELBNJ, BUFFER); 
3 396 1008 Advance the block numbers to those of the next home block. 
: 59 1010 
; i 1011 pur rent iate st, NOEL ON = purr enti $SL_HOMELBN) + 1; 
3 age 10g BUFFERCHM2$W_HOMEVBN) = .BUFFERLHM2$W_HOMEVBN] + 1; 


3; Routine Size: 


52 


00006 cr 
E 
0000G CF 


00006 CF 


Routine Base: 


1 
1 
: 


0004 00000 WRITE _HOMEBLOCK: 
» WORD 


9E 0000 
Dd 


owmuonoOo "OWNS 
Foowmoowronwco7o 
Oooooooooooo 
tt et tte te bet 


SCODES + 0486 


4 01:47: 
4 12:35: 44 


end of routine WRITE_HOMEBLOCK 
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Save R2 
GyEFER. Re 
#58 


R 
ae CHECKSUM2 
#510, -(SP) 


#2, CHECKSUM2 


BUFFER 
#2, WRITE_BLOCK 


BUF FER+16 
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04- ene e= hae 93:95:98 BES SUMGHASTERCCINIG <GRCJININDX.032:10%" (8) 
o38 ROUTINE MAKE_POINTER (COUNT, LBN) : NOVALUE = 
600 1e+ | 
601 
¢ FUNCTIONAL DESCRIPTION: 
604 This routine appends a retrieval pointer to the map area of the current 
oh? file header describing the given count and LBN. 
607 
608 CALLING SEQUENCE: 
oo? MAKE_POINTER (ARG1, ARG2) 


INPUT PARAMETERS: 
ARG1: block count 
ARG2: start LBN 


IMPLICIT INPUTS: 
BUFFER contains file header 


OUTPUT PARAMETERS: 

NONE 
IMPLICIT OUTPUTS: 

retrieval pointer added to header 
ROUTINE VALUE: 

NONE 


PMOPUPOTY — 2 


MEWN SO OODNOAUSWN—OOONOUS Wh 
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SIDE EFFECTS: 
NONE 


PRAEAAAAAA AAA AAA A AAA AAAAAAS 


me ee a a a tk a ed od od dd dd wd 2 dd 
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1 

1 

1 

1 

1 

1 

1 

1 

1 
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1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 
BEGIN 
BUILTIN 
LOCAL 

MAP_POINTER : REF BBLOCK; ! pointer to map area 
EXTERNAL 
Compute the address in the file header where the pointer should go. 


2 
2 
0 
04 
04 ~~ 
3 04 
3 04 
3 05 
3 05 
3 05 
636 05 
637 05 
638 05 
639 05 
640 05 : 
64) B2 BUFFER : BBLOCK; ! buffer containing file header 
ong 06 
644 06 } 
2? Oe hen determine the format of the pointer and build it. 
647 
rt 3 bee MAP_POINTER = BUFFER + 2 * (.BUFFERCFH2$B_MPOFFSET) + .BUFFERCFH2$B8_MAP_INUSE)); 
650 ; IF .COUNT LEQU 256 AND .LBN LSSU 1°22 
651 3 THEN 
626 BEGIN 
65 070 spent lh HS $A) = FM2$C_FORMATI; 
654 071 MAP_POINTERLFM2$B8_COUNT1) = .COUNT = 1; 


<- | 


4 8 
er 8ee= 138 b:3ei9s | ed Saleteacciniy che auninox.e32;10%" 8 


; 655 1 2 MAP_POINTER[FM2$V_HIGHLBN] = .LBN<16,6>; 
; 6 $ 107 MAP~PO urge FMoSW~LOWL NJ = LBN<O $3 
: 6 1074 BUFFER 7 $8 MAP INUSE) = .BUFFERCFH2SB_MAP_INUSE) + 2; | 
: 6 1076 | 
; 107 ELSE IF .COUNT LEQU 16384 | 
Bo aR Phe | 
; £08 1080 P_POINTER[FM2$V_FORMAT) = = FIRS¢ FORMAT2; 
: 6646 19 1 RAP =POINTER 40 $v- =COUNT2I COUN NT = 1; 
; 665 1 i MAP~POINTERLFM2$L LBN2 LBN | 
: 666 10 ; BUFFER FH $8. mAP _INUSE “LEM; acruase.. MAP_INUSE] + 3; | 
: 668 1085 
: 669 10 ELSE IF .COUNT LEQU 1°30 
ie 
; 67 1089 5flAP ,PO NTER = ROT (.COUNT=1 
; 67 1090 POINTE ERCFM sv FORMAT = Pitted FORMAT3; 
: 674 1091 HAP “POINTERLFM2$L-LBN3) = .LBN; 
; 675 1098 BUFFER FH2$B_MAP_INUSE BUF FERCFH2$B_ MAP_INUSE] + 4; 
$ o76 1094 
: 678 1095 2 ELSE ERR_EXIT (INIT$_LARGECNT); 
> 679 1096 
; 680 1097 1 END; ! end of routine MAKE_POINTER 
000C 00000 MAKE_POINTER: 
-WORD Save R2,R3 3; 1015 
53 00006 CF 9E 9000 MOVAB BUFFER+58, R3 ; 
50 C7 a3 9A 0000 MOVZBL BUFFER+1, RO + 1065 
51 63 9A 00008 MOVZBL BUFFER+58, R1 ; 
50 51 £0 000E ADDL2 R1, R : 
20 C6 A340 ‘ 0011 MOVAW  BUFFERCROJ, MAP_POINTER ; 
1 04 AC 006 00016 MOVL COUNT, R1 + 1067 
00000100 &F 51 D1 OOOIA CMPL R1, #256 : 
23 1A 00021 BGTRU 18° : 
00400000 8F 08 AC D1 00023 CMPL  LBN, #4194304 ; 
19 1€ 00028 BGEGU§ *1$ : 
60 02 OF gi F 0 p INSV. #1, #14, A; (MAP_POINTER) : 1070 
6 1 8 suBB5 #1. R1, (MAP_P : 1071 
01 AO 06 0 OA Ac Ff INSV LBN+2 “a ar ie POINTER) ; 1976 
02 =A 08 AC OVW i é (MAP P sPQiNTER : 197 
6 0 4 ADDB2 BUFFERTS : 1074 
4 0004 RET > 1067 
00004000 8F 51 01 00046 1$: CMPL , #16384 + 1077 
17 1A 0004D BGTRU : 
60 02 02 FO 0004F INSV H4, af? (MAP_POINTER) + 1080 
FF OAL OQ 4 MOVAB (ri : 1081 
OE 52 F 8 INSV—R2, ill so (MAP gpOINTER) ; 
08 AC MOVL LON, 3 {ma : 108 
0 6 ADDB2 # : 108 
4 0006 RET : 107 


¢-sep-1984 93:98: 8 DE CSVMRHASTER CLINT SREDININDX.B32:1°%" (8S 


28: CMPL » #1073741824 ; 1086 
BGTRU ° 
DECL 1089 


R1 
ROTL Hig, R (MAP_POINTER) 
é, ltmse POINTER) 
LBN, 4 (MAP POINTER) 
FFERTS 
0 


oreoeuu" 


68 


MO 
apoee #4, BU 


0075800¢ iH dD #770070 


000000006 00 
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=x 
cc 


cote #1, LIBSSTOP 


; Routine Size: 145 bytes, Routine Base: S$CODES + 0481 


; 681 1098 
; 68 1099 ND : 
; 68 1100 0 ELUDOM 

.EXTRN LIBSSTOP ; 
: PSECT SUMMARY ; 
: Name Bytes Attributes : 
: SPLITS 48 NOVEC,NOWRT, RD ,NOEXE,NOSHR, LCL, REL, Snel b Trg bono fs F 
; SCODES 1346 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) : 
: Library Statistics ; 
tiara ss Symbols -------- Pages Processing F 
: File Total Loaded Percent Mapped Time : 
;  _$255$DUA28:CSYSLIBILIB.L32;1 18619 86 0 1000 00:01.9 : 
: COMMAND QUALIFIERS : 
; BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE)/LIS=LIS$: ININDX/OBJ=OBJ$: ININDX MSRC$: ININDX/UPDATE=(ENHS: ININDX) 3 
: § Siz a Pe 1346 ¢ fe.* 348 data bytes 3 
: ope y Tine: 1:05. ; 
; Lines/CPU Min: 4 ‘ ; 
3; Lexemes/CPU-Min: 2825 : 


Memory Used: 324 pages 
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a 
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voe~000 


; Compilation Complete 
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